Programming Languages Suite/ProgramD2.iso/Borland/Borland C++ For TASM/USRGUIDE.PAK/HEXMOD.PAS

Pascal/Delphi Source File | 1996-02-21 | 342 b | 17 lines

{ Turbo Assembler example. Copyright (c) 1993 By Borland International, Inc. }

{ Use with hexmod.asm }

program HexTest;
var
  num : Word;

function HexStr (var num; byteCount : Byte) : string; far; external;

{$L HEXMOD.OBJ}

begin
  num := $face;
  Writeln('The Converted Hex String is"',HexStr(num,sizeof(num)),'"');
end.